(define (kons x y)
  (lambda (selector)
    (selector x y)))
(define (kar c)
  (c (lambda (x y) x)))
(define (kdr c)
  (c (lambda (x y) y)))

(define main
  (builtin print (kar (kons 'yes 'no))))
